2 Figures

2.1 ConcvTime

## 
## CncvTm> data("twoCmt")
## 
## CncvTm> ex1=ConcvTime(datFile = twoCmt,ID = '1',ipredVar = 'IPRED')
## 
## CncvTm> ex2=ConcvTime(datFile = twoCmt,ID = '1',ipredVar = 'IPRED',minorTicks = T)

## Scale for 'x' is already present. Adding another scale for 'x', which
## will replace the existing scale.

## 
## CncvTm> list(ex1,ex2)
## [[1]]

## 
## [[2]]

2.2 ConcvTimeInd

## 
## CncvTI> data("twoCmt")
## 
## CncvTI> twoCmt=twoCmt%>%mutate(DOSE=factor(DOSE))
## 
## CncvTI> ex1=ConcvTimeInd(datFile = twoCmt)
## 
## CncvTI> ex2=ConcvTimeInd(datFile = twoCmt,facetBy = 'SEX')
## 
## CncvTI> list(ex1,ex2)
## [[1]]

## 
## [[2]]

2.3 ConcvTimeMult

## 
## CncvTM> data("twoCmt")
## 
## CncvTM> twoCmt=twoCmt%>%mutate(DOSE=factor(DOSE))
## 
## CncvTM> ## Not run: ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED')
## CncvTM> ex1=ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED',genAll=F,page=1)
## 
## CncvTM> ex2=ConcvTimeMult(datFile = twoCmt,ipredVar='IPRED',genAll=F,page=2,nrow =5,ncol=4)
## 
## CncvTM> list(ex1[[1]],ex2[[1]])
## [[1]]
## [[1]]$pList
## [[1]]$pList$`1`

## 
## 
## [[1]]$plotCols
## [1] 1
## 
## [[1]]$plotRows
## [1] 1
## 
## 
## [[2]]
## [[2]]$pList
## [[2]]$pList$`2`

## 
## 
## [[2]]$plotCols
## [1] 1
## 
## [[2]]$plotRows
## [1] 1

2.4 ConcvTimeSum

## 
## CncvTS> data("twoCmt")
## 
## CncvTS> twoCmt=twoCmt%>%mutate_each(funs(factor),DOSE,SEX)
## 
## CncvTS> ConcvTimeSum(datFile = manipDat(twoCmt,groupBy = 'SEX',sumThis = T))

2.5 GOF

## 
## GOF> data("twoCmt")
## 
## GOF> GOF(twoCmt,cwresBy = 'IRES')

2.6 OBSvIPRED

## 
## OBSIPR> data("twoCmt")
## 
## OBSIPR> ex1=OBSvIPRED(twoCmt%>%filter(DV>0),xBy='IPRED')
## 
## OBSIPR> ex2=OBSvIPRED(twoCmt,xBy='IPRED',xScale = 'identity',markBy = 'SEX')
## 
## OBSIPR> list(ex1,ex2)
## [[1]]

## `geom_smooth()` using method = 'gam'

## 
## [[2]]

## `geom_smooth()` using method = 'gam'

2.7 QQplot

## 
## QQplot> data("twoCmt")
## 
## QQplot> ex1=QQplot(twoCmt)
## 
## QQplot> ex2=QQplot(twoCmt,markBy = 'SEX')
## 
## QQplot> ex3=QQplot(twoCmt,facetBy = 'DOSE')
## 
## QQplot> list(ex1,ex2,ex3)
## [[1]]

## 
## [[2]]

## 
## [[3]]

2.8 barchartMult

## 
## brchrM> data("twoCmt")
## 
## brchrM> ex1=barchartMult(datFile = twoCmt)
## 
## brchrM> ex2=barchartMult(datFile = twoCmt,catList = list(c('SEX','Gender')))
## 
## brchrM> ex3=barchartMult(datFile = twoCmt,nrow=2)
## 
## brchrM> list(ex1,ex2,ex3)
## [[1]]

## 
## [[2]]

## 
## [[3]]

2.9 covCat

## 
## covCat> data("twoCmt")
## 
## covCat> ex1=covCat(twoCmt,catList = list('SEX'),conList = 'IPRED',nCols=1)
## 
## covCat> ex2=covCat(twoCmt,catList = list(list('SEX','Gender'),list('DOSE')),conList = list(list('IPRED'),list('ETA1',expression(eta[1]))))
## 
## covCat> list(ex1,ex2)
## [[1]]

## 
## [[2]]

## notch went outside hinges. Try setting notch=FALSE.
## notch went outside hinges. Try setting notch=FALSE.

2.10 covCon

## 
## covCon> data("twoCmt")
## 
## covCon> ex1=covCon(twoCmt,conList_x = 'IPRED',conList_y = 'ETA1',nCol=1)
## 
## covCon> ex2=covCon(twoCmt,
## covCon+ conList_x = list(
## covCon+ list('IPRED','Individual Prediction'),
## covCon+ list('IRES','Individual Residual')
## covCon+ ),
## covCon+ conList_y = list(
## covCon+ list('ETA1',expression(eta[1]))
## covCon+ )
## covCon+ )
## 
## covCon> list(ex1,ex2)
## [[1]]

## 
## [[2]]

2.11 distMult

## 
## dstMlt> data("twoCmt")
## 
## dstMlt> ex1=distMult(twoCmt)
## 
## dstMlt> ex2=distMult(twoCmt,order = c("Boxplot","Density","QQ"))
## 
## dstMlt> list(ex1,ex2)
## [[1]]

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

## 
## [[2]]

## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
## `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

2.12 ggpairs

## 
## ggpars> data("twoCmt")
## 
## ggpars> ex1=ggpairs(twoCmt,xCols=c('ETA1','ETA2'))
## 
## ggpars> ex2=ggpairs(twoCmt,xCols=c('ETA1','ETA2','ETA5'))
## 
## ggpars> list(ex1,ex2)
## [[1]]

## 
## [[2]]

2.13 paramDist

## 
## prmDst> data("twoCmt")
## 
## prmDst> ex1=paramDist(twoCmt)
## 
## prmDst> ex2=paramDist(twoCmt,xCols=c('ETA1','ETA2'),xLab=c(expression(eta[1]),expression(eta[2])))
## 
## prmDst> list(ex1,ex2)
## [[1]]

## 
## [[2]]